home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / aminet / ffnews / sendbrowser.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-24  |  2KB  |  62 lines
  1. /**************************************************************************/
  2. /* Script to give the URL of the URL-Grabber of FFNews to your currently  */
  3. /* running WWW-Browser. Currently supported are IBrowse, AWeb and AMosaic */
  4. /* If you miss any features, or find any bugs, please report them to      */
  5. /* the address below. If you make any changes to the script, please       */
  6. /* send a copy of it to me.                                               */
  7. /* Also it would be nice if you would send me a mail if you use this      */
  8. /* and find it useful :-)                                                 */
  9. /* This script is $Ver: 1.4b                                              */
  10. /* History : V1.0 first realease                                          */
  11. /*            1.1 adapted to the change of IBrowses portname              */
  12. /*            1.2 added support for Hyperion (internal, no release)       */
  13. /*            1.3 added "show" to prevent MUI Browsers from crashing,     */
  14. /*                when iconified                                          */
  15. /*            1.4 start to implement starting default browser which is    */
  16. /*                set in the env variable BROWSER                         */
  17. /* Author  : Markus 'lammy' Lamers; E-Mail: markus.lamers@tu-clausthal.de */
  18. /*           thanx to Peter "Stoebi" Schulz for his help                  */
  19. /**************************************************************************/
  20.  
  21. parse arg args
  22. options results
  23.  
  24. if show('P','IBROWSE') then do
  25.         address 'IBROWSE'
  26.         SHOW
  27.         GOTOURL args
  28.         Exit
  29. end
  30.  
  31. if show('P','AWEB.1') then do
  32.         address 'AWEB.1'
  33.         OPEN args
  34.         Exit
  35. end
  36.  
  37. if show('P','AMOSAIC.1') then do 
  38.         address 'AMOSAIC.1'
  39.         SHOW
  40.         JUMP URL args
  41.         Exit
  42. end
  43.  
  44. if show('P','Hyperion') then do
  45.         address 'Hyperion'
  46.         GOTO args
  47.         Exit
  48. end
  49.  
  50. if show('P','VOYAGER') then do
  51.         address 'VOYAGER'
  52.         SHOW
  53.         OPENURL args
  54.         Exit
  55. end
  56.  
  57. /* shortened script, get the original one from Aminet */
  58.  
  59. address command 'run >nil: c:requestchoice "URL-Script" "You must start your WWW-Browser first" "Okay"'
  60.  
  61. EXIT 10
  62.